#!/usr/local/bin/perl

$i=5;
$j= 10;

$k=add($i, $j);

print "$i, $j, $k \n";

sub add {
    $_[0]++;
    $_[1]++;
    return $_[0]+$_[1];
}
